home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 July / 1987-07.d64 / s & e customizer (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  73 lines
  1. 10 rem sam & ed customizer
  2. 20 rem copyright 1987 - compute! publications, inc. all rights reserved
  3. 30 poke 53280,2:poke 53281,12:bk=1
  4. 40 gosub 550
  5. 50 print"change colors (y/n)";:input a$:if a$<>"y" then 230
  6. 60 print"press spacebar to choose colors"
  7. 70 print"and then press return to select"
  8. 80 print"border color     ";:gosub 600
  9. 90 bd=x:poke 53280,x
  10. 100 print"background color ";:gosub 600
  11. 110 bk=x:poke 53281,x:if bk=0 then poke 646,1
  12. 120 print"sam's body color ";:gosub 600
  13. 130 sb=x
  14. 140 print"sam's leg color  ";:gosub 600
  15. 150 sl=x
  16. 160 print"ed's body color  ";:gosub 600
  17. 170 eb=x
  18. 180 print"ed's leg color   ";:gosub 600
  19. 190 el=x
  20. 200 poke 2431,bd:poke 2441,bk
  21. 210 poke 2461,sl:poke 2466,sb
  22. 220 poke 2471,el:poke 2476,eb
  23. 230 poke 53280,2:poke 53281,12:poke 646,0
  24. 240 gosub 550:print"change timer (y/n)";:input d$:if d$="y" then gosub 690
  25. 250 gosub 550:print"change messages (y/n)";:input a$:if a$<>"y" then 450
  26. 260 gosub550
  27. 270 print"upcoming event #1 (37 chars max.)":input a$
  28. 280 if len(a$)<37 then a$=a$+" ":goto 280
  29. 290 a$=left$(a$,37)
  30. 300 for y=1 to 37:nc=asc(mid$(a$,y,1)):if nc>63 then nc=nc-64
  31. 310 poke 2207+y,nc
  32. 320 next y
  33. 330 print"upcoming event #2 (37 chars max.)":input a$
  34. 340 if len(a$)<38 then a$=a$+" ":goto 340
  35. 350 a$=left$(a$,38)
  36. 360 for y=1 to 38:nc=asc(mid$(a$,y,1)):if nc>63 then nc=nc-64
  37. 370 poke 2245+y,nc
  38. 380 next y
  39. 390 print"upcoming event #3 (29 chars max.)":input a$
  40. 400 if len(a$)<29 then a$=a$+" ":goto 400
  41. 410 a$=left$(a$,29)
  42. 420 for y=1 to 29:nc=asc(mid$(a$,y,1)):if nc>63 then nc=nc-64
  43. 430 poke 2284+y,nc
  44. 440 next y
  45. 450 print"insert a new formatted disk":for d=1 to 1000:next
  46. 460 print"  press any key to save custom sam & ed [146]"
  47. 470 get dh$
  48. 480 if dh$="" then 470
  49. 490 poke 44,8:poke 46,25
  50. 500 print"just a moment..."
  51. 510 print"saving custom sam & ed"
  52. 520 open 1,8,15,"s0:custom sam & ed":close 1
  53. 530 save"custom sam & ed",8
  54. 540 print"[147]      press return to play sam & ed     [146]":print"run[145][145][145]":end
  55. 550 print"[147][144]";:printspc(9)"  sam & ed customizer  [146]"
  56. 560 for m=1 to 10:print"":next
  57. 570 printspc(5)"[213][196][201] copyright 1987"
  58. 580 printspc(5)"[199]c[200] compute! publications inc."
  59. 590 printspc(5)"[202][198][203] all rights reserved":return
  60. 600 for x=0 to 15
  61. 610 poke 646,x:print" [146]";"[157]";:get a$:if a$=chr$(13) then poke 646,0:goto 670
  62. 620 if a$=chr$(32) then 640
  63. 630 goto 610
  64. 640 if x=15 then 600
  65. 650 next
  66. 660 goto 610
  67. 670 print:if bk=0 then poke 646,1
  68. 680 return
  69. 690 print"enter a number less than 10";:input h$
  70. 700 if h$="" then 700
  71. 710 h=val(h$)+176
  72. 720 poke 5714,176:poke 5719,h:return
  73.